Private Sub UserForm_Initialize()

    Dim û As Range

    Set û = Range("B3", Cells(Rows.Count, "B").End(xlUp))

    With lstû
        .List = û.Value
        .MultiSelect = fmMultiSelectMulti
    
        lblû.Caption = " : " & .ListCount
    End With
    
    lbl.Caption = ""
    lst.MultiSelect = fmMultiSelectMulti
    
End Sub
